home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD001b.dsk / POKE.DATE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  13 lines
  1. 10  HOME 
  2. 20  VTAB 10: HTAB 10
  3. 30  PRINT "WHAT IS TODAY'S DATE?": PRINT 
  4. 40  VTAB 12: CALL  -868: HTAB 15: INVERSE : PRINT "YEAR:";: NORMAL : HTAB 25: PRINT "--";: HTAB 24: INPUT " ";YY$: IF YY$ = ""  THEN YY$ =  RIGHT$(Y$,2): VTAB 12: HTAB 25: PRINT YY$
  5. 42  IF  VAL(YY$) >99  OR  VAL(YY$) <1  OR  LEN(YY$) >2  THEN 40
  6. 45  IF  VAL(YY$) <10  THEN YY$ = "0" +YY$
  7. 50  VTAB 14: CALL  -868: HTAB 15: INVERSE : PRINT "MONTH:";: NORMAL : HTAB 25: PRINT "--";: HTAB 24: INPUT " ";MN$: IF MN$ = ""  THEN MN$ = MM$: VTAB 14: HTAB 25: PRINT MM$
  8. 55 MM$ = MN$: IF  LEN(MM$) >2  OR  VAL(MM$) <1  OR  VAL(MM$) >12  THEN 50
  9. 60  VTAB 16: CALL  -868: HTAB 15: INVERSE : PRINT "DAY:";: NORMAL : HTAB 25: PRINT "--";: HTAB 24: INPUT " ";DY$: IF DY$ = ""  THEN DY$ = DD$:: VTAB 16: HTAB 25: PRINT DD$
  10. 63 DD$ = DY$: IF  LEN(DD$) >2  OR  VAL(DD$) <1  OR  VAL(DD$) >31  THEN 60
  11. 64  IF  LEN(DD$) <2  AND  VAL(DD$) <10  THEN DD$ = "0" +DD$
  12. 105 XX$ = YY$ +MM$ +DD$
  13. 175  FOR I = 1 TO 6:J = 28671 +I: POKE J, VAL( MID$ (XX$,I,1)): NEXT I